(Fprog2): Doc fix.

diff --git a/src/eval.c b/src/eval.c
index 6e2cbaa651bcca19d73abdabf8059e0a94d84f9d..40102788b8aa027a29fee677f8c730e3358df881 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -378,7 +378,7 @@ whose values are discarded.")
 }
 
 DEFUN ("prog2", Fprog2, Sprog2, 2, UNEVALLED, 0,
-  "(prog1 X Y BODY...): eval X, Y and BODY sequentially; value from Y.\n\
+  "(prog2 X Y BODY...): eval X, Y and BODY sequentially; value from Y.\n\
 The value of Y is saved during the evaluation of the remaining args,\n\
 whose values are discarded.")
   (args)